rcv_char:        ldaa    SCSR    ; first check if ready        anda    #$20    ; bit 5 is receive data register full flag        beq     rcv_char ; wait until RDRF flag is 1        ldaa    SCDR    ; get received char (auto-clears RDRF flag)        rts